#!/usr/bin/perl -w
$length = 0;
@k = keys ( %ENV );

foreach ( @k ) {
 $ke = length ( $_ );   
   if ( $ke > $length ) {
    $length = $ke;
   }

}

foreach  $key ( sort keys %ENV ) {
printf "%${length}s %s\n", $key, $ENV{$key};
}

